Unless 


Column Arrangement of Numbers 


the numbers being entered into the program are of equal 


length string variables must be used to right justify and to align 
decimal points. 


The following subroutine is an example of one way to accomplish 
this objective: 


10a 
118 
128 
138 
148 
158 
168 
178 


188 
288 


216 
228 
238 
248 


LET f=6 

PRINT AT 28,8; "Enter the amount." 

INPUT a¥ 

IF a$="@" THEN LET a$="@.00" 

FOR i= LEN a$-1 TO @ STEP -1 

LET b$=a$( TO LEN ag$-i) 

LET c$=a$(LEN a$-1 TO LEN a$) 

IF c$="." AND i<>2 THEN LET d$=a¢(LEN a$-i TO LEN a$): 
LET d= 1@@*VAL d$:LET d=INT (d+.5)/10@:LET a$=b$+STR$ d: 
6OTO 288 

NEXT i 

LET c#=a$(LEN a$-2 TO LEN a$-2):1F c$<>"." THEN LET at=a$+ 
"@"3GOTO 280 


IF a$( TO 1)="." THEN LET ag="Q"+ta$ 
PRINT AT £,20-LEN a$;at 
LET f=f+1 


GOTO 118 


